/* rsbr003.p - Sched Ord- Line Items(2) Browse UI                           */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.9 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 8.5      Created: 06/19/97    By: B. Pedersen    *J1TF*
 *    Revision: 8.5     Modified: 09/26/97    By: B. Pedersen    *J20C*
 *    Revision: 8.5     Modified: 01/31/99    By: Doug Norton    *M071*
 *    Revision: 9.0     Modified: 03/15/99    By: Mark Smith     *M0BF*
 *    Revision: 9.1     Modified: 08/15/00    By: Mark Brown     *N0KP*
 * $Revision: 1.9 $    BY: Jean Miller          DATE: 04/05/02  ECO: *P044*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Sched Ord- Line Items(2)"

&SCOPED-DEFINE BR-NAME rs003
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE pod_det
&SCOPED-DEFINE Q-FIRST-FIELD-LIST (pod_nbr pod_firm_days pod_plan_days pod_plan_weeks pod_plan_mths pod_fab_days pod_raw_days pod_translt_days pod_sftylt_days pod_vpart pod_sd_pat pod_cum_qty[03] pod_ord_mult pod_cum_date[01])
&SCOPED-DEFINE Q-2ND-TABLE po_mstr
&SCOPED-DEFINE Q-2ND-JOIN po_nbr = pod_nbr
&SCOPED-DEFINE Q-2ND-FIELD-LIST ()
&SCOPED-DEFINE Q-NUM-TABLES 2

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.pod_nbr
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 pod_det.pod_nbr
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-pod_nbr
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Order"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.pod_firm_days
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 pod_det.pod_firm_days
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-pod_firm_days
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Firm Days"
&SCOPED-DEFINE BR-FIELD-TYPE-2 integer
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT ">,>>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 10

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.pod_plan_days
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 pod_det.pod_plan_days
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-pod_plan_days
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Plan Sched Days"
&SCOPED-DEFINE BR-FIELD-TYPE-3 integer
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT ">>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 16

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.pod_plan_weeks
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 pod_det.pod_plan_weeks
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-pod_plan_weeks
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Plan Sched Weeks"
&SCOPED-DEFINE BR-FIELD-TYPE-4 integer
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT ">>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 17

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-1.pod_plan_mths
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 pod_det.pod_plan_mths
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-pod_plan_mths
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Plan Sched Months"
&SCOPED-DEFINE BR-FIELD-TYPE-5 integer
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT ">>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 18

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.pod_fab_days
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 pod_det.pod_fab_days
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-pod_fab_days
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "Fab Auth Days"
&SCOPED-DEFINE BR-FIELD-TYPE-6 integer
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT ">,>>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 14

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-7 b-1.pod_raw_days
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-7 pod_det.pod_raw_days
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-7 tt-pod_raw_days
&SCOPED-DEFINE BR-K-COL-LABEL-7 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-7 "Raw Auth Days"
&SCOPED-DEFINE BR-FIELD-TYPE-7 integer
&SCOPED-DEFINE BR-FIELD-FRMT-7 FORMAT ">,>>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-7 14

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-8 b-1.pod_translt_days
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-8 pod_det.pod_translt_days
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-8 tt-pod_translt_days
&SCOPED-DEFINE BR-K-COL-LABEL-8 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-8 "Transport Days"
&SCOPED-DEFINE BR-FIELD-TYPE-8 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-8 FORMAT ">>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-8 15

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-9 b-1.pod_sftylt_days
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-9 pod_det.pod_sftylt_days
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-9 tt-pod_sftylt_days
&SCOPED-DEFINE BR-K-COL-LABEL-9 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-9 "Safety Days"
&SCOPED-DEFINE BR-FIELD-TYPE-9 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-9 FORMAT ">>9.99"
&SCOPED-DEFINE BR-FIELD-WIDTH-9 12

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-10 b-1.pod_vpart
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-10 pod_det.pod_vpart
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-10 tt-pod_vpart
&SCOPED-DEFINE BR-K-COL-LABEL-10 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-10 "Supplier Item"
&SCOPED-DEFINE BR-FIELD-TYPE-10 character
&SCOPED-DEFINE BR-FIELD-FRMT-10 FORMAT "x(30)"
&SCOPED-DEFINE BR-FIELD-WIDTH-10 31

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-11 b-1.pod_sd_pat
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-11 pod_det.pod_sd_pat
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-11 tt-pod_sd_pat
&SCOPED-DEFINE BR-K-COL-LABEL-11 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-11 "SDP Code"
&SCOPED-DEFINE BR-FIELD-TYPE-11 character
&SCOPED-DEFINE BR-FIELD-FRMT-11 FORMAT "x(2)"
&SCOPED-DEFINE BR-FIELD-WIDTH-11 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-12 b-1.pod_cum_qty[03]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-12 pod_det.pod_cum_qty[03]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-12 tt-pod_cum_qty_03
&SCOPED-DEFINE BR-K-COL-LABEL-12 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-12 "Maximum Order Quantity"
&SCOPED-DEFINE BR-FIELD-TYPE-12 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-12 FORMAT "->>>>,>>>,>>9.9<<<<<<<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-12 24

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-13 b-1.pod_ord_mult
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-13 pod_det.pod_ord_mult
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-13 tt-pod_ord_mult
&SCOPED-DEFINE BR-K-COL-LABEL-13 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-13 "Std Pack Qty"
&SCOPED-DEFINE BR-FIELD-TYPE-13 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-13 FORMAT ">>,>>>,>>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-13 13

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-14 b-1.pod_cum_date[01]
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-14 pod_det.pod_cum_date[01]
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-14 tt-pod_cum_date_01
&SCOPED-DEFINE BR-K-COL-LABEL-14 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-14 "Cum Start"
&SCOPED-DEFINE BR-FIELD-TYPE-14 date
&SCOPED-DEFINE BR-FIELD-FRMT-14 FORMAT "99/99/99"
&SCOPED-DEFINE BR-FIELD-WIDTH-14 10

&SCOPED-DEFINE Q-NUM-FILT-VALS 14
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 31
&SCOPED-DEFINE BR-BROWSE-WIDTH 212
&SCOPED-DEFINE WHERE-CLAUSE
&SCOPED-DEFINE BR-INDEXED-FIELDS 1

{wbbr01.i}
if c-application-mode <> 'WEB' then do:
   {browse.i}
end.
